0 GOTO100
1 DATA"[212]ODAY IS SELDOM TOO EARLY - TOMMOROW IS USUALLY TOO LATE."
2 DATA"[212]HE FUTURE IS THAT TIME WHEN YOU'LL WISHYOU HAD DONE WHAT YOU AREN'T DOING NOW."
3 DATA"[212]HE BEST KIND OF HELPING HAND IS THE ONE AT THE END OF YOUR ARM."
4 DATA"[201]T IS MUCH EASIER TO KEEP THE FIRE      BURNING THAN IT IS TO REKINDLE IT       AFTER IT[160]HAS GONE OUT.
5 [131]"RIGHT$T IS FUTILE TO LOOK FOR YOUR SHIP TO   COME IN UNLESS YOU HAVE SENT ONE OUT."
6 [131]"(null)HE LADDER OF LIFE IS FULL OF SPLINTERS  - MOST OF WHICH YOU DON'T SEE UNTIL    YOU START SLIDING DOWN."
7 [131]"RIGHT$F AT FIRST YOU DON'T SUCCEED - YOU'LL  GET PLENTY OF ADVICE."
8 [131]"ATNSK ENOUGH PEOPLE AND YOU'LL ALWAYS FIND SOMEONE WHO ADVISES YOU TO DO EXACTLY  WHAT YOU PLANNED TO DO IN THE FIRST   PLACE."
9 [131]"(null)EDICINE AND ADVICE ARE TWO THINGS MORE PLEASANT TO GIVE THAN RECEIVE."
10 [131]"ATNBILITY MAY GET YOU TO THE TOP -CLOSEBUT    ONLY CHARACTER WILL KEEP YOU THERE."
11 [131]"(null)HE CHURCH IS A HIVE FOR WORKERS - NOT A NEST FOR DRONES."
12 [131]"(null)EVER GIVE AN EXCUSE FOR YOURSELF THAT  YOU WOULDN'T ACCEPT FROM ANOTHER PERSON."
13 [131]"RIGHT$T'S TOO BAD THAT LIFE'S PROBLEMS CAN'T HIT US WHEN WE'RE EIGHTEEN - THE STAGE  OF LIFE WHEN WE KNOW EVERYTHING.
14 DATA"[212]HERE'S NOTHING BUT EXPERIENCE - IT     HELPS YOU RECOGNIZE A MISTAKE THE      SECOND TIME YOU MAKE IT."
15 DATA"[212]HINK OF FAILURE AS AN OPPORTUNITY TO   TRY AGAIN - WISER THAN BEFORE."
16 DATA"[204]EARN FROM THE MISTAKES OF OTHERS. [217]OU  WON'T LIVE LONG ENOUGH TO MAKE THEM     ALL YOURSELF."
17 DATA"[207]NE THING ABOUT BEING IMPERFECT IS THE  JOY IT BRINGS TO OTHER PEOPLE."
18 DATA"[208]RAYER IS ASKING FOR RAIN, AND FAITH IS TAKING AN UMBRELLA."
19 DATA"[211]OME MINDS ARE LIKE CONCRETE - ALL      MIXED UP AND PERMANTLY SET."
20 DATA"[212]HE PROBLEM WITH BEING A GROUCH IS THAT YOU HAVE TO MAKE A NEW SET OF FRIENDS   EVERY FEW WEEKS."
21 DATA"[193] REALLY NICE GUY IS A PERSON WHO HAS   NEVER HEARD THE STORY BEFORE."
22 DATA"[212]HE HAPPIEST PERSON ON EARTH IS THE ONE WHO SAVES FRIENDS."
23 DATA"[193] TRUE FRIEND IS A PERSON WHO REMEMBERS YOUR BIRTHDAY BUT FORGETS HOW MANY      YOU'VE HAD."
24 DATA"[207]NE SURE WAY TO LOSE FRIENDS IS TO WIN  ALL THE ARGUMENTS."
25 DATA"[194]E NICE TO YOUR FRIENDS. [201]F IT WEREN'T  FOR THEM - YOU WOULD BE LIKE A TOTAL    STRANGER."
26 DATA"[212]HE PERSON WHO DOESN'T KNOW WHERE HE'S  GOING USUALLY GETS THERE IN RECORD TIME."
27 DATA"[212]HE BEST WAY TO GET PEOPLE TO BELIEVE   ANYTHING IS TO WHISPER IT."
28 DATA"[210]UMOR IS ONE THING THAT GETS THICKER AS YOU SPREAD IT."
29 DATA"[199]OD LOVES US THE WAY WE ARE - BUT HE    CARES TOO MUCH TO LEAVE US THAT WAY."
30 DATA"[194]AD HABITS ARE LIKE A COMFORTABLE BED -  EASY TO GET INTO AND HARD TO GET OUT OF"
31 DATA"[212]EMPER GETS MOST OF US IN TROUBLE - AND PRIDE KEEPS US THERE.
32 [131]"RIGHT$F WE LEARN TO LAUGH AT OURSELVES - WE  WILL ALWAYS WILL HAVE SOMETHING TO MAKE US HAPPY."
33 [131]"ATNN EXPERT IS AN ORDINARY PERSON A       HUNDRED MILES FROM HOME.
34 DATA"[201]T'S ALWAYS EASY TO SEE BOTH SIDES OF   AN ISSUE YOU'RE NOT PARTICULARLY        CONCERNED ABOUT."
35 DATA"[193] HOSPITAL ROOM IS[160]A PLACE WHERE FRIENDS OF THE PATIENT GO TO TALK TO OTHER     FRIENDS OF THE PATIENT."
36 DATA"[193]BOUT THE ONLY THING FREE OF CHARGE     THESE DAYS IS A RUN-DOWN BATTERY."
37 DATA"[193]LL IT TAKES TO GROW HEALTHY GRASS IS A  CRACK IN THE DRIVEWAY."
38 DATA"[193] FOOT IS A DEVICE FOR FINDING          FURNITURE IN THE DARK."
39 DATA"[193] PERFECT GUEST ALWAYS MAKES HIS HOST   FEEL RIGHT AT HOME."
40 DATA"[198]RUSTRATION IS NOT HAVING ANYONE TO     BLAME BUT YOURSELF."
41 DATA"[208]EOPLE WITH CLENCHED FISTS CAN'T SHAKE  HANDS."
42 DATA"[204]AUGHTER IS THE SHORTEST DISTANCE       BETWEEN TWO PEOPLE."
43 DATA"[196]IPLOMACY IS THE ART OF TELLING OTHERS  THEY HAVE OPEN MINDS INSTEAD OF HOLES   IN THEIR HEADS."
44 DATA"[211]OME PEOPLE BRING HAPPINESS WHEREVER    THEY GO...SOME OTHERS WHEN THEY GO."
45 DATA"[206]O MATTER HOW LONG YOU NURSE A GRUDGE - IT WON'T GET[160]BETTER."
46 DATA"[212]HE NICE THING ABOUT QUIET MEDITATION   IS THAT IT MAKES DOING NOTHING VERY     RESPECTABLE."
47 DATA"[215]ORK IS A FINE THING IF IT DOES'T TAKE  TOO MUCH OF YOUR LEISURE TIME."
48 DATA"[193] HAPPY MARRIAGE EXISTS WHEN THE COUPLE IS AS DEEPLY IN LOVE AS IT IS IN DEPT."
49 DATA"[212]HE PROBLEM WITH MARRIAGE IS THAT WE    FALL IN LOVE WITH A PERSONALITY BUT WE  END UP LIVING WITH A CHARACTER."
50 DATA"[210]EMEMBER WHEN ''SOUND AS A DOLLAR'' WAS A REAL COMPLIMENT?"
51 DATA"[211]TATISTICS PROVE THAT THE BEST TIME TO  BUY ANYTHING IS A YEAR AGO."
52 DATA"[212]HE BEST WAY TO SHORTEN THE WINTER IS   TO BORROW SOME MONEY THAT YOU HAVE TO    PAY BACK IN THE SPRING."
53 DATA"[201]F YOU GET SOMETHING FOR A SONG - WATCH OUT FOR THE ACCOMPANIMENT."
54 DATA"[197]VERY TIME HISTORY REPEATS ITSELF - THE PRICE OF THE LESSON GOES UP."
55 DATA"[205]ONEY CERTAINLY A MEDIUM OF EXCHANGE. [193] MEDIUM AMOUNT OF IT WON'T EXCHANGE FOR  VERY MUCH THESE DAYS."
56 DATA"[212]HE GREENER GRASS NEXT DOOR IS PROBABLY JUST AS HARD TO CUT."
57 DATA"[193] WISE PERSON ALWAYS MAKES MORE         OPPORTUNITIES THAN HE FINDS."
58 DATA"[215]RINKLES ARE HEREDITARY - PARENTS GET   THEM FROM THEIR CHILDREN."
59 DATA"[193] PEDESTRIAN IS A PERSON WHO HAS TWO    CARS - A SPOUSE - AND ONE OR MORE       TEENAGE CHILDREN"
60 DATA"[208]ARENTS SHOULD REMEMBER THAT CHILDREN   WILL PROBABLY FOLLOW THEIR EXAMPLE      RATHER THAN THEIR ADVICE."
61 DATA"[196]ON'T PRAY FOR RAIN IF YOU INTEND TO    COMPLAIN ABOUT THE MUD."
62 DATA"[212]OO MANY [195]HRISTIANS EXPECT A MILLION -  DOLLAR ANSWER TO A TEN-CENT PRAYER."
63 DATA"[205]OST PEOPLE ARE IN FAVOR OF[160]PROGRESS -  IT'S CHANGE THEY CAN'T[160]STAND."
64 DATA"[195]OUNT YOUR OBLIGATIONS - [206]AME THEM ONE  BY ONE - [193]ND IT WILL SURPRISE YOU WHAT  THE [204]ORD WANTS DONE."
65 DATA"[199]IVE YOUR EFFORTS TO IMPROVING YOURSELF - AND YOU'LL HAVE LITTLE TIME LEFT FOR   CRITICIZING OTHERS."
66 DATA"[212]HE ENDS OF SOME SERMONS - LIKE THE     COVERS ON SOME BOOKS - ARE TOO FAR APART"
67 DATA"[193] ''RELIGIOUS AWAKENING'' IS WHAT TAKES PLACE AFTER THE PREACHER ENDS HIS SERMON"
68 DATA"[204]ORD - FILL MY MOUTH WITH WORTHWHILE    STUFF - AND STOP ME WHEN [201]'VE SAID      ENOUGH."
69 DATA"[204]IFE IS LIKE TENNIS - THE PLAYER WHO    SERVES WELL HAS A GOOD CHANCE OF WINNING"
70 DATA"[212]HE ROAD TO SUCCESS IS LINED WITH MANY  TEMPTING PARKING SPACES."
71 DATA"[193]LL THAT STANDS BETWEEN SOME PEOPLE     AND THE TOP OF THE LADDER IS THE LADDER."
72 DATA"[211]UCCESS IS SWEET - BUT IT REQUIRES A    LOT OF SWEAT."
73 DATA"[207]NE THING COMMON TO MOST SUCCESS STORIES IS THE ALARM CLOCK."
74 DATA"[212]HE PROBLEM WITH SUCCESS IS THAT WHEN   YOUR SHIP COMES IN - MOST OF YOUR       FRIENDS AND RELATIVES ARE STANDING ON THE DOC."
75 DATA"[193]LWAYS TRY TO STOP TALKING BEFORE       PEOPLE STOP LISTENING."
76 DATA"[201]T'S ALLRIGHT TO HOLD A CONVERSATION -  BUT YOU SHOULD LET GO OF IT NOW AND THEN"
77 DATA"[212]HE REASON WHY TALK IS CHEAP IS THAT THE SUPPLY EXCEEDS THE DEMAND."
78 DATA"[196]O YOU REMEMBER WHEN THE ONLY THING THAT ANNOYED YOU ABOUT TELEVISION WAS   POOR RECEPTION."
79 DATA"[201]FTOMORROW SHOULDEVER ARRIVE - IT     WOULD BE THE BUSIEST DAYOF THEYEAR."
80 DATA"[211]OME [195]HRISTAINS ARE LIKE THE [193]RTIC      RIVERS -FROZEN AT THE MOUTH."
81 DATA"[205]ONDAY IS CERTAINLY A TOUGH WAY TO SPEND ONE-SEVENTH OF YOUR LIFE."
82 DATA"[201]T'S GOOD TO WAIT ON THE LORD - AS LONG AS YOU'RE BUSY WHILE YOU WAIT.
83 [131]"(null)HE BEST WAY TO KILL TIME IS TO WORK IT TO DEATH."
84 [131]"VALVERY FARMER KNOWS HE CAN'T PLOW A      FIELD BY TURNING IT OVER IN HIS MIND."
85 [131]"(null)HE ONLY PLACE WHERE SUCCESS COMES      BEFORE WORK IS IN THE DICTIONARY."
86 [131]"CHR$OD PUT WORK INTO OUR LIVES - LEFT$E        EXPECTS US TO PUT LIFE INTO OUR WORK."
87 [131]"(null)OST PEOPLE ARE NEVER TOO BUSY TO STOP  AND TELL YOU HOW BUSY THEY ARE."
88 [131]"(null)AKING AN HONEST LIVING SHOULD BE EASY -THERE'S SO LITTLE COMPETITION THESE DAYS"
89 [131]"VALVERY GREAT ACCOMLISHMENT HAS THREE     DISTINCT STEPS - 1. RIGHT$T'S IMPOSSIBLE -   2. RIGHT$T'S DIFFICULT - AND 3. RIGHT$T'S DONE."
90 [131]"(null)EOPLE WHO SAY THAT SOMETHING IS        IMPOSSIBLE SHOULD NOT INTERRUPT THOSE   WHO ARE MANAGING TO GET IT DONE."
91 [131]"RIGHT$T TAKES SOME PEOPLE A LONG TIME TO GET NOTHING DONE."
92 [131]"(null)RAY FOR A GOOD HARVEST - BUT KEEP ON    PLOWING."
93 [131]"(null)ORRY ALWAYS GIVES A LITTLE THING A BIG SHADOW."
94 [131]"LEFT$OW YOU HANDLE YOUR PROBLEMS BY DAY HAS A LOT TO DO WITH HOW YOU SLEEP AT NIGHT."
95 [131]"ATN DAY OF WORRY BURNS MORE ENERGY THAN A WEEK OF WORK."
96 [131]"PEEKLESSED IS THE PERSON WHO IS TOO BUSY   TO WORRY DURING THE DAY AND TOO SLEEPY   TO WORRY AT NIGHT."
100 [139][194](56)[179][177]56[167][151]56,56:[156]
101 [151]53272,31
102 [134]Q$(96):[153][199](14):[151]53280,0:[151]53281,0:[151]646,1:[141]200
103 GR$[178]"TANATNPEEKLENCMDCMDCMDCMDSTR$VALASCCHR$CMDCMDCMDCMDLEFT$RIGHT$MID$(null)CMDCMDCMDCMD(null)(null)(null)(null)CMDCMDCMD(null)(null)"
105 [129] R[178]1[164]96: [135]Q$(R):[130]
110 ]SP82:]PI32:]KN145,145:L[178]1:]RE
115 [139]L[178]1[167]:]LI1
120 X[178][181]([187](1)[172]96[170]1):S$[178]Q$(X)
125 [153]"LOAD"S$
126 [151]214,9:[153]:[153][163]18)GR$
130 ]LI1
135 SAYS$
136 ]LI1
140 [129]DELAY[178]1[164]1500:[130]:[203] [164] 8000
200 [153]"LOAD";:[141]300:[137]250
201 [153] [163]8);"PRINT*NEWNEWWAITGETGETNEWRNDWAITRND  *WAIT GETWAITCOSGETWAITCOSGETWAITCOSGETWAITCOSGETWAITCOSGETWAITCOS"
202 [153] [163]8);"PRINTGETWAIT NEWRNDGETWAITNEWNEWCOS  WAITSIN GETRNDCOSWAIT GETRNDCOSWAIT LOGNEWSINWAIT "
204 [153] [163]8);"PRINTGETWAIT GETWAIT GETWAIT GETWAIT *NEWGETWAIT GETWAIT RNDWAIT GETWAIT RNDWAIT  GETWAIT  "
206 [153] [163]8);"PRINT NEWNEWWAITCOSLOGCOSLOGCOSLOGNEWWAITLOGCOSLOGCOSLOGCOSLOGCOSLOGCOS LOG  "
208 [153] [163]14);"PRINT*NEWNEWWAITGETGETNEWNEWWAITGETGETNEWRNDWAITCOS"
210 [153] [163]14);"PRINTLOGNEWNEW GETWAITNEWNEW  *COS "
212 [153] [163]14);"PRINT*  GETGETWAIT  RND*COS RND"
214 [153] [163]14);"PRINTLOGNEWNEWWAIT LOGNEWNEWWAITCOSLOGNEWNEWWAITCOS"
250 [153]"(null)EVERAL PITHY SAYINGS FROM CHR$RANDMA."
252 [153]"RIGHT$F SHE REPEATS SOME BE PATIENT WITH HER..."
254 [153]"ON(null)HE IS OLD...YOU KNOW...AND FORGETFUL."
260 [153]"(null)ROGRAM BY (null)ENNETH PEEKARSKY"
261 [129] DELAY[178]1[164]7500:[130]
262 [153]"LOAD(null)(null)(null)(null)LENVALCLOSE- LENLIP ATNRT (null)ENTENCE (null)ERMONS"
263 [153]"CHR$EORGE (null). (null)RIGHT - LENOMPILER"
264 [153]"LEFT$OWARD (null)ARIS - RIGHT$LLUSTRATOR"
265 [153]"PEEKAKER PEEKOOK LEFT$OUSE CHR$RAND (null)APIDS, (null)RIGHT$ 49506"
270 [153]"(C)1986"
272 [153]"(null)(null)(null)VAL:CLOSE(null)(null)(null)(null)CLOSE(null)(null)ATNSTR$CLOSEPEEK(null)(null)(null) (null)(null)(null)CHR$(null)ATN(null)":[153]"''-CHR$(null)ATN(null)(null)(null)CLOSE(null)VAL(null)'' ASCRIGHT$(null)(null)(null)!"
273 [153]"(null)ROGRAM RUNS CONTINUOSLY..."
275 [153]"LEFT$OLD DOWN [(null)(null)ATNLENVALCLOSEPEEKATN(null)] TO EXIT."
280 [129] DELAY[178]1[164]2000:[130]:[142]
300 [153][163]5)"ORTAN^ORTAN^ORTAN^OR^=OR^== =  ORTAN^ORTAN^TANTAN^
301 PRINTTAB(5)"[221][192][174][171][178][189][171][192][179][221][173][179][221][173][179][173][178][189]  [173][192][174][171][179] [176][192][189]
302 [153][163]5)"/TANEXP>/EXP> >> >> > >   /TANEXP/TANEXP/TANTAN
303 RETURN
400 FOR X=1TO96:REM TEST GRANNY
405 PRINT"[147]";
410 READ Q$(X):PRINTX: PRINTQ$(X)
415 STOP
420 NEXT
425 END
8000 GET ANY$:IFANY$><CHR$(32)ANDANY$<>CHR$(96)THEN 120
8001 POKE214,20:PRINT:PRINTTAB(16)"[199]OOD [194]YE"
8002 S$="[199]OOD BYE":SAYS$
8003 FORX=1TO1000:NEXT
8009 ]QUIT:REM DISABLE SAM
8010 GOTO40000:REMN$="CG COLUMN":PRINT"[147]LOAD"CHR$(34)N$ CHR$(34)","DV
8015 POKE53272,21:POKE63,0:POKE64,0:POKE3,3
8020 POKE48,8:POKE52,160:POKE54,0:POKE56,160:POKE57,0:POKE58,255:POKE62,0
8030 PRINT"RUN":POKE198,3
8040 POKE631,19:POKE632,13:POKE633,13:POKE59,0:POKE60,0:NEW
9998 END
9999 OPEN15,8,15:PRINT#15,"S:GRANNY SEZ":CLOSE15:SAVE"GRANNY SEZ",8
10000 D=PEEK(186):N$="GRANNY SEZ":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END